home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)expo87.d64
/
kplay
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
5KB
|
34 lines
10 REM KPLAY BY CRAIG CHAMBERLAIN 7/85
20 REM TYPE RUN 100 FOR INSTRUCTIONS
30 IF PEEK(4785) GOTO 200
100 PRINT"[147][155]":POKE53280,0:POKE53281,0:FORK=1TO16:READS$:PRINT" "S$:NEXT
110 INPUT" [217][207][213][210] [206][193][205][197]";N$:IFLEN(N$)>10GOTO110
120 IFN$>""THENN$=", "+N$:FORK=1TOLEN(N$):POKE4784+K,ASC(MID$(N$,K))AND127:NEXT
130 POKE4785+LEN(N$),0
140 PRINT"[194]E SURE TO [211][193][214][197] THIS":PRINT"MODIFIED COPY OF THE PLAYER.
150 [129]K[178]1[164]3000:[130]:[129]K[178]1[164]23:[135]S$:[153]" "S$:[130]:[146]198,15:[161]K$
160 [129]K[178]1[164]22:[135]S$:[153]" "S$:[130]:[146]198,15:[161]K$
200 [158] 3816
800 [131]"(null)RIGHT$STR$(null)(null)ATN(null)VAL(null) (null)RIGHT$(null)LEFT$ (null)VAL(null)PEEK(null)ATN(null)STR$ STR$RIGHT$(null)(null)(null)ATN(null)","BY LENRAIG LENHAMBERLAIN",
801 [131]"(null)HIS IS AN ENHANCED VERSION",OF THE MUSIC PLAYING PROGRAM
802 [131]"FOUND IN (null)OLUME (null)WO OF","ATNLL ATNBOUT (null)HE LENOMMODORE 64.",
803 [131] "(null)HE PROGRAM PLAYS ALL","(null)IDPLAYER SONGS.",
804 [131]"(null)O PERSONALIZE THIS COPY OF","THE PLAYER, ENTER YOUR NAME,"
805 [131]"OR JUST PRESS (null)ETURN","TO CANCEL THE FEATURE.",
810 [131]"LOADRIGHT$N ADDITION TO (null)IDPLAYER,","(null)OLUME (null)WO CONTAINS SECTIONS ON...",
811 [131]"* ATNDVANCED PEEKATN(null)RIGHT$LEN"," (STR$VALASC, (null)(null)VAL(null), LEN(null)(null)(null)VAL, (null)ATNRIGHT$(null), (null)(null)(null), ETC.)",
812 [131]"* PEEKITMAPPED CHR$RAPHICS VALXTENSIONS"," (WITH NEW STATEMENTS ADDED TO
813 DATA" [194][193][211][201][195], INCLUDING FAST [198][201][204][204] AND"," [211][200][193][208][197] DRAWING STATEMENTS)",
814 DATA"* [211]PRITE [195]ONTROL [211]YSTEM"," (WITH CONTINUOUS SPRITE MOTION,
815 [131]" JOYSTICK CONTROL, AUTOMATIC SHAPE"
816 [131]" CHANGING, AN EDITOR, AND MORE -"," SPRITE ANIMATION WITHOUT A
817 DATA" SINGLE [208][207][203][197] STATEMENT!)",,"[212]HE BOOK DOES [206][207][212] ASSUME THAT
818 [131]"YOU HAVE READ (null)OLUME (null)NE.",,,(PRESS ANY KEY)
820 [131]"LOADATN(null)(null) ATNPEEK(null)(null)(null) (null)LEFT$VAL LEN(null)(null)(null)(null)STR$(null)(null)VAL 64: (null)(null)(null)(null)(null)VAL (null)(null)(null)","BY LENRAIG LENHAMBERLAIN",
821 [131]"ASCROM LEN(null)(null)(null)(null)(null)VAL! PEEKOOKS",,"$16.95",
822 [131]"RIGHT$(null)PEEK(null) 0-942386-45-0",,"ATNT YOUR LOCAL BOOKSTORE",
823 [131]"(null)R CALL TOLL FREE 1-800-334-0868",,
824 [131]"(null)HE POWER OF MACHINE LANGUAGE,","WITH THE CONVENIENCE OF PEEKATN(null)RIGHT$LEN...",
825 [131]"RIGHT$T TURNS YOUR LEN(null)(null)(null)(null)STR$(null)(null)VAL 64","INTO A WHOLE NEW COMPUTER!",,
826 [131](PRESS ANY KEY)